MacUser Mac Bin 40/MACUSER-MACBIN40A-1997-03.ISO.7z/MACUSER-MACBIN40A-1997-03.ISO/DEMO/SecretsJ DEMO/WATER.DIR/00016_Script_16

Text File | 1996-12-02 | 5KB | 186 lines

on mousedown
  global loop,doors,eggwater

  repeat with i = 17 to 20
    puppetsprite i,true
  end repeat

  set loop = 0
  set win = false
  set bottom = false
  docur(6)
  set b1 = ball1()
  set b2 = ball2()
  set b3 = ball3()
  repeat while the mousedown AND ROLLOVER(41)
    set mv = the mousev
    if mv > 281 and mv < 353 then
      set bottom = false
      --set lh = integer(((mv-281)*13)/72)
      --set mh = integer(((mv-281)*6)/72)

      set lh = ((mv-281)*13)/72
      set mh = ((mv-281)*6)/72
      set the loc of sprite 17 = point(241-lh,mv)
      --set the loch of sprite 17 = 241 - lh

      if mv >= b1 then
        set the locv of sprite 18 = b1
      else
        set the loc of sprite 18 = point(279-mh,mv)
        --set the loch of sprite 18 = 279 - mh
      end if

      if mv >= b2 then
        set the locv of sprite 19 = b2
      else
        set the locv of sprite 19 = mv
      end if

      if mv >= b3 then
        set the locv of sprite 20 = b3
      else
        set the loc of sprite 20 = point(350+mh,mv)
        --set the loch of sprite 20 = 350 + mh
      end if
    else if mv <= 281 then
      set bottom = false
      set the locv of sprite 17 = 281
      set the locv of sprite 18 = 281
      set the locv of sprite 19 = 281
      set the locv of sprite 20 = 281
    else if mv >= 353 then
      set bottom = true
      set the locv of sprite 17 = 353

      if mv >= b1 then
        set the locv of sprite 18 = b1
      else
        set the locv of sprite 18 = 353
        set the loch of sprite 18 = 279 - mh
      end if

      if mv >= b2 then
        set the locv of sprite 19 = b2
      else
        set the locv of sprite 19 = 353
      end if

      if mv >= b3 then
        set the locv of sprite 20 = b3
      else
        set the locv of sprite 20 = 353
        set the loch of sprite 20 = 350 + mh
      end if
    end if
    updatestage
  end repeat

  if b1 = 297 and b2 = 281 and b3 = 325 then
    set win = true
  end if

  if bottom = true and eggwater = true and win = true then
    if doors = false then
      set doors = true
      set the visible of sprite 2 to true
    else if doors = true then
      set doors = false
      set the visible of sprite 2 to false
    end if
    set loop = 0
    set the visible of sprite 21 = true
    set the visible of sprite 22 = true
    set the visible of sprite 23 = true
    set the visible of sprite 24 = true

    go to "end"
  else if win = false and bottom = true and eggwater = true then
    set loop = 0
    go to "water"
  else if bottom = false then
    repeat with i = 7 to 10
      puppetsprite i,false
    end repeat

    repeat with i = 17 to 20
      puppetsprite i,false
    end repeat
    updatestage
    go to "alter"
  else
    puppetsound 3,335
    repeat with i = 7 to 10
      puppetsprite i,false
    end repeat

    repeat with i = 17 to 20
      puppetsprite i,false
    end repeat
    updatestage
    go to "alter"
  end if
end


on ball1
  set cn7 = the membernum of sprite 7
  set cn9 = the membernum of sprite 9
  set stop = 353
  if cn7 = 176 then
    set stop = 281
  else if cn7 = 175 then
    set stop = 286
  else if cn7 = 174 then
    set stop = 297
  else if cn9 = 181 then
    set stop = 317
  else if cn9 = 180 then
    set stop = 325
  else if cn9 = 187 then
    set stop = 340
  end if
  return stop
end

on ball2
  set stop = 353
  set cn7 = the membernum of sprite 7
  set cn8 = the membernum of sprite 8
  set cn9 = the membernum of sprite 9
  set cn10 = the membernum of sprite 10
  if cn7 = 178 or cn8 = 176 then
    set stop = 281
  else if cn7 = 171 or cn8 = 175 then
    set stop = 286
  else if cn7 = 172 or cn8 = 174 then
    set stop = 297
  else if cn9 = 183 or cn10 = 181 then
    set stop = 317
  else if cn9 = 184 or cn10 = 180 then
    set stop = 325
  else if cn9 = 185 or cn10 = 187 then
    set stop = 340
  end if
  return stop
end

on ball3
  set stop = 353
  set cn8 = the membernum of sprite 8
  set cn10 = the membernum of sprite 10
  if cn8 = 178 then
    set stop = 281
  else if cn8 = 171 then
    set stop = 286
  else if cn8 = 172 then
    set stop = 297
  else if cn10 = 183 then
    set stop = 317
  else if cn10 = 184 then
    set stop = 325
  else if cn10 = 185 then
    set stop = 340
  end if
  return stop
end